home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 179 / 179.d81 / b.geo-stars 1 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  87 lines
  1. 10 poke53281,0:poke53280,0:print"[147]"
  2. 12 dt$="......................................................................"
  3. 20 dv=peek(186):ifdv<8thendv=8
  4. 30 printtab(13)"[155][215]alt [200]arned's[129]"
  5. 40 print"  [176][192][192][174][176][192][192][174][176][192][192][174]   [176][192][192][174][176][192][178][192][174][176][192][192][174][176][192][192][174][176][192][192][174]
  6. 42 [153]"  (NULL) tan^-tan< (NULL)  (NULL) tan /tantan^  (NULL)  -tantan<-=tanexp/tantan^
  7. 44 print"  [173][192][192][189][173][192][192][189][173][192][192][189]   [173][192][192][189]  [177]  [189]  [173][189][173][192][189][173][192][192][189]"
  8. 46 print"     [176][192][192][174][176][192][192][174][176][192][174] [176][176][192][178][192][174][176][192][192][174][176][192][192][174][176][192][178][192][174]
  9. 48 [153]"     (NULL)   (NULL)  (NULL)(NULL) (NULL) (NULL)  (NULL)  -tan< /tantan^  (NULL)
  10. 50 print"     [173][192][192][189][173][192][192][189][189] [173][192][189]  [177]  [173][192][192][189][173][192][192][189]  [177]
  11. 60 [153]"     1cont - (NULL)rint out a lenontest peekallot
  12. 62 print"     2[154] - [210]eturn to [204][207][193][196][211][212][193][210]
  13. 70 [151]198,0
  14. 80 [161]a$:[139]a$[178]""[167]80
  15. 90 [139]a$[178]"2"[167]40000
  16. 100 [139]a$[179][177]"1"[167]80
  17. 110 [153]" syschr$et printer ready and press a key.conton"
  18. 120 [151]198,0
  19. 130 [161]a$:[139]a$[178]""[167]130
  20. 140 [159]4,4,7
  21. 150 [152]4,,,,"(NULL)atn(NULL)(NULL) left$atn(NULL)(NULL)valstr$'(NULL) chr$val(NULL)-(NULL)(NULL)atn(NULL)(NULL) len(NULL)(NULL)(NULL)val(NULL)(NULL)
  22. 160 print#4:print#4:print#4
  23. 170 print#4,,"[206][193][205][197]:"+left$(dt$,61)
  24. 180 print#4
  25. 190 print#4,,"[193][196][196][210][197][211][211]:"+left$(dt$,58)
  26. 200 print#4
  27. 210 print#4,,"[195][201][212][217]:"+left$(dt$,30)+"[211][212][193][212][197]:"+left$(dt$,10)+"[218][201][208]:"+left$(dt$,11)
  28. 220 print#4
  29. 230 print#4,,"[198]ill in the information above and then fill in the names of the
  30. 240 [152]4,,"actors shown in the geo(NULL)aint document. atnn anagram of the name of
  31. 250 print#4,,"each actor is given to help you. [212]hen send your entry to:
  32. 260 [152]4
  33. 270 [152]4,,,"chr$eo-(NULL)tars lenontest
  34. 280 print#4,,,"606 [195]ommon [211]treet
  35. 290 [152]4,,,"(NULL)hreveport (NULL)atn 71101
  36. 300 print#4:print#4
  37. 302 print#4,,"[193]nagrammed [206]ame     [210]eal [206]ame
  38. 304 [152]4,,"-----------------------------"
  39. 306 [152]4
  40. 310 [152]4,,"atnlenright$str$ val(NULL)(NULL) atn(NULL)(NULL)(NULL) -- "[170][200](dt$,49)
  41. 312 [152]4
  42. 320 [152]4,,"peekatnstr$ len(NULL)(NULL)(NULL)atn(NULL) (NULL)(NULL)(NULL)val -- "[170][200](dt$,47)
  43. 322 [152]4
  44. 330 [152]4,,"chr$right$(NULL)atn mid$val(NULL) left$val(NULL) -- "[170][200](dt$,50)
  45. 332 [152]4
  46. 340 [152]4,,"peekval(NULL)(NULL) (NULL)(NULL)(NULL)val -- "[170][200](dt$,53)
  47. 342 [152]4
  48. 350 [152]4,,"(NULL)atn(NULL)chr$ atn(NULL)right$lenval mid$(NULL)(NULL)val -- "[170][200](dt$,47)
  49. 352 [152]4
  50. 360 [152]4,,"(NULL)atn(NULL) len(NULL)(NULL)val atn(NULL)right$(NULL)val -- "[170][200](dt$,48)
  51. 362 [152]4
  52. 370 [152]4,,"(NULL)(NULL)(NULL)chr$ peek(NULL) len(NULL)right$peek -- "[170][200](dt$,50)
  53. 372 [152]4
  54. 380 [152]4,,"(NULL)left$(NULL) chr$atn(NULL) peekatnpeekval -- "[170][200](dt$,50)
  55. 382 [152]4
  56. 390 [152]4,,"(NULL)left$(NULL)atn mid$val(NULL)(NULL)(NULL) -- "[170][200](dt$,52)
  57. 392 [152]4
  58. 400 [152]4,,"chr$(NULL)str$ (NULL)(NULL)(NULL)left$ len(NULL)(NULL)(NULL)right$val(NULL) -- "[170][200](dt$,46)
  59. 402 [152]4
  60. 410 [152]4,,"atn str$(NULL)(NULL)(NULL)left$right$(NULL)(NULL) (NULL)right$(NULL)val -- "[170][200](dt$,47)
  61. 412 [152]4
  62. 420 [152]4,,"atn str$val(NULL)(NULL)val(NULL) (NULL)(NULL)right$(NULL)val -- "[170][200](dt$,48)
  63. 422 [152]4
  64. 430 [152]4,,"(NULL)(NULL)right$(NULL)val chr$(NULL)(NULL) (NULL)(NULL)(NULL) -- "[170][200](dt$,49)
  65. 432 [152]4
  66. 440 [152]4,,"right$(NULL) left$(NULL)(NULL) peek(NULL)(NULL)chr$(NULL) -- "[170][200](dt$,50)
  67. 442 [152]4
  68. 450 [152]4,,"atn (NULL)(NULL)(NULL)atn(NULL) (NULL)val(NULL)(NULL) -- "[170][200](dt$,50)
  69. 452 [152]4
  70. 460 [152]4,,"(NULL)valval(NULL) (NULL)val(NULL)(NULL)(NULL)(NULL) -- "[170][200](dt$,51)
  71. 470 [152]4:[160]4
  72. 480 [151]186,dv
  73. 490 [153]"                                     on"
  74. 500 [137]70
  75. 999 [137]999
  76. 10000 d[178][194](186):n$[178]"0:b.geo-stars 1":[159]15,d,15,"s"[170]n$:[160]15:[148]n$,d:[128]
  77. 40000 [129]i[178]8[164]29:[151]820[170]i,i:[130]:[139]dv[177]8[175]dv[179]30[167][151]828,dv:[151]820[170]dv,8
  78. 40010 a$[178]"presenter":[141]40030:a$[178]"hello connect":[141]40030
  79. 40020 [153]"load":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
  80. 40030 [129]j[178]8[164]29:i[178][194](820[170]j):[139]i[178]14[167][130]
  81. 40040 [160]2:[159]2,i,2:[160]2:[139]st[167]40060
  82. 40050 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]40070
  83. 40060 [130]:[142]
  84. 40070 a$[178]"hello connect":q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  85. 40080 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  86. 40090 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  87.